Designer's Club 1996 August/Designer's Club 1996 August.iso/pc/ideasrc/barn.dir/00011.ls

Text File | 1996-07-16 | 761 b | 40 lines

on keyDown
  if the key = 1 then
    set the soundLevel to 1
  end if
  if the key = 2 then
    set the soundLevel to 2
  end if
  if the key = 3 then
    set the soundLevel to 3
  end if
  if the key = 4 then
    set the soundLevel to 4
  end if
  if the key = 5 then
    set the soundLevel to 5
  end if
  if the key = 6 then
    set the soundLevel to 6
  end if
  if the key = 7 then
    set the soundLevel to 7
  end if
  if the key = "W" then
    if the volume of sound 2 = 0 then
      set the volume of sound 2 to the soundLevel * 36
    else
      set the volume of sound 2 to 0
    end if
  end if
  if the key = "S" then
    go("side")
  end if
  if the key = "T" then
    go("top")
  end if
  if the key = "P" then
    go("perspective")
  end if
end